library(ggplot2)
data(diamonds)
print(head(diamonds))
hist(diamonds$carat,main = "Carat Histogram",xlab = "Carat")
plot(price ~ carat,data=diamonds)
plot(diamonds$carat,diamonds$price)
g = ggplot(data = diamonds)
boxplot(diamonds$carat)
